858 IFY<.4THEN688 668 FRINT“HE5SUNG TX FREGUENZ = ";Y;“ HHZ" 678 X(éJ=INT(288*Y+.5>/288 688 PRINT"EINGRBE NDMINAL TX FREDUENZ: "; 698 PRINTXt6)I 788 PRINT"U”CHR5(13)TnE(29) 718 INPUTX(6> 728 5(L}=X<6) 738 PRINT 748 PRINT"SIHPLEX DDER DUPLEX (5/D): 'Q 758 PRINT" S"}IPRINT“H"CHR$(13)THB(38}i:INPUTD$ 768 IFD$¤"D“THEN798 778 IFD$¤"S"THEN848 788 GGTU?48 798 PRINT .888 PRINT"DUPLEX ABBTRND (RX—TX)IN MHZ : 'Q 818 PRINTX(4>£IPRINT"H"CHR$(13}Té8(38};:INPUTX(4) 828 X<1)=X(éJ+X(4) 838 FtL)¤X(1):GGTG 878 S48 X<*l>=8:><(1)=X(é»> 858 F<L>=X(é) 868 R(L>=X(6> 878 R=81IGD5U8 9888 888 P<L)=Y 898 IF P(L)>.889 THEN 958 988 PRINT 918 PRINT 928 PRINT 938 Y$=" K E I N E L E I 5 T U N G " 948 R=87IGOSUB 9888 958 A<L)=INT(YJ 968 R=36:GD5UB 9888 978 PRINT:m(L)=Y 988 PRINT“8ENDERSTR8H ",Y;“AHP“ 998 HDLD 1888 ‘ 1888 IF L¤K THEN GGTD 1828 1818 NEXT L 1828 PRINT 1838 INPUT“5—TDN HDDULHTIDNEN Y/N"jT$ 1848 IF T$¤"Y" THEN GDTU 1878 1858 IF T$="N" THEN GOTO 1388 1868 GOTO 1838 1878 PRINT 1888 INPUT"ANZAHL 5-TEN HDDULATIDNEN"jH 1898 GDHUB 3128 1188 T1=2:Y¤8:R=281GD5U89888 1118 PRINT 1128 Y$¤“Z":R=19:GUSUB9888 1138 FDR L=1 TD M 1188 Y=8:R=17:GDSU8 9888 1158 R=43:GO8UE 9888 1168 Y$="88888888":R=33tGOSU8 9888 1178 PRINT 1188 Y$¤"NUMMER EINSTELLEN " 1198 R¤87:GD5UB9888 1288 Y1=4:Y=1:R=28:GU5UB9888 1218 HEJLD BBB: Y1=4:Y=E:R=28:GDSUB?BG8 1228 R=34:GOSUB9888 1288 IF Y$<>" “THEN GDTD1278 1248 Y$="RUF AU5LDESEN" 1258 R=871GDSUE 9888 - 1268 RMBQJGDSIJE 9888 1278 PRINT 1288 Y$¤RIGHT${Y$,&) 1298 PRINT"DHCDDIERTE NUHHER "JYS 1388 N$<LJ=Y$ 1318 NEXT L